#!/usr/bin/perl

use CGI qw(:standard);
#use LWP::Simple qw(get);
use XML::Simple;

use strict;
use warnings;

print header(-type => 'application/xhtml+xml');

my $partido = param('partido');
my $resultado = param('resultado');

my $xml = XMLin("quiniela.xml");
#$xml->{partido}->[$partido]->{resultado} = "$resultado";
print XMLout($xml, RootName=>'quiniela', XMLDecl =>'<?xml version="1.0"?>');
